home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr05
/
wwam.zip
/
WIGWAM.ZIP
/
ACCUW.SCR
next >
Wrap
Text File
|
1992-12-06
|
3KB
|
100 lines
; Revised for TP/WigWam by William Lees 5/12/92
;
; This script downloads Accu-Weather maps for offline
; viewing with the .GIF viewer of your choice. ACCUW.SCR
; can be invoked by pressing <PgUp> while in Interactive
; mode, or can be copied to the filename FRONTEND.SCR and
; excuted by logging on with the <Alt-N> command.
; (Revised April '91 to include interrogation responses, based on
; research by Ben Parker 71450,2735 and Loren Jenkins 76702,1006)
;
; Before your first use, read through the script comments
; and customize the lines underscored by *****'s. As supplied,
; the Graphics Type is '1' VGA, and the maps downloaded are:
; Current Weather, to a file named CURRENT.GIF, and Tomorrow's
; Weather, to a file named TOMORROW.GIF.
;
; This script is set up to work with TAPCIS version 5.4.
; To use with TAPCIS 5.3, remove the leading semi-colon from the
; two lines enclosed in ;++++++++'s.
;
; The portion of the script enclosed in ;======='s can be
; duplicated if you want to download more than two maps.
;
; Loren Jenkins
; Revised 11-Oct-92 for new menus.
;
S GO USMAPS^M
W MAPS
;CompuServe USMAPS
;+++++++++ For TAPCIS 5.3, remove the leading ';' from the next two lines
W I
U #IBX,PB,+539^M
;++++++++++++++++
W g
U #0^M
W !
;Select Graphics Type
;
;Choose the selection which best fits your PC's graphics capabilities.
;
;Type of Graphics
; 1 640 x 480 x 16 colors (VGA, Macintosh II)
; 2 378 x 240 x 16 colors (EGA)
; 3 320 x 200 x 4 colors (CGA, Tandy 1000)
; 4 320 x 200 x 2 colors (Hercules, Macintosh Plus or SE)
;
S 1^M
;****** Select graphics type from the list
;United States (Download mode)
; 1 Short-Term Weather Forecasts
; 2 U.S. National Weather Service Reports
; 3 Other Regions of the World
;
; 4 Radar (for 09:30 EST 11-Oct-92)
; 5 Depiction (for 09:31 EST 11-Oct-92)
; 6 CompuServe Temperatures (for 09:31 EST 11-Oct-92)
; 7 Satellite (for 09:00 EST 11-Oct-92)
; 8 Satellite - Pacific (for 22:00 EST 10-Oct-92)
; 9 Current Weather (for 12:00 EST 11-Oct-92)
;10 Tomorrow's Weather (for 12:00 EST 12-Oct-92)
;11 48-Hour Weather (for 07:00 EST 13-Oct-92)
;12 Current Temperatures (for 23:00 EST 10-Oct-92)
;13 Tonight's Lows (for 12-Oct-92)
;14 Tomorrow's Highs (for 12-Oct-92)
;15 Northeast NA (for 11-Oct-92)
;16 Southeast NA (for 11-Oct-92)
;17 North Central NA (for 11-Oct-92)
;18 South Central NA (for 11-Oct-92)
;19 Northwest NA (for 11-Oct-92)
;20 Southwest NA (for 11-Oct-92)
;
;!
W !
S 9^M
;**** Choose a map from the menu list (4-20)
W !
S 2^M
W t) :
; Delete any previous version
K USCW.GIF
S USCW.GIF^M
;************** Enter a file name for the downloaded map, ending with ^M
W !
;----------------------------
; The following section (enclosed in ;=======) can be repeated
; for additional weather maps.
;=============================
S 10^M
;**** Choose a map from the menu list (4-20)
W t) :
; Delete any previous version
K USCW.GIF
S USCW.GIF^M
;************** Enter a file name for the downloaded map, ending with ^M
W !
;=============================
S ^M
W !
; End of script, leaving TAPCIS at a navigation prompt